0 REM MANY THANKS TO MRS. BYRNE WHO GAVE ME A CHANCE TO WRITE THIS. 1 REM MANY REGARDS ALSO TO MR. JIM BUTTERFIELD WHO FIXED MY SPLIT-SCREEN. 2 REM ************************************************************************** 3 REM MAKE SURE YOU RAISED BASIC BY TYPING POKE44,64:POKE64*256,0:NEW 4 REM BEFORE ENTERING OR LOADING THIS !!**************************************** 5 ONAGOTO981,982,983 6 IFPEEK(44)<>64THENPRINT"[147]BASIC HAS NOT BEEN MOVED. RESTART !!!":LIST2-4 7 POKE3846,226:POKE53281,6:POKE53280,14:POKE178,0:POKE179,16:PRINT"[154]"CHR$(142) 10 PRINT"[147] MULTI-DRAW 64" 15 PRINT" BY: PETE LOBL" 16 PRINT" VERSION 5/31/83" 20 PRINT"PLEASE WAIT, READING IN MACHINE CODE..." 30 DIMC$(15),CH%(11):P$="":FORI=1TO22:P$=P$+"":NEXT:FORI=0TO15:READC$(I):NEXT 40 FORI=1TO10:READX%(I),Y%(I):NEXT 50 C1=6:C2=2:C3=1:CC=1:K$="JOY":K=0:P=1:PE$="DOW":TB=14:MB=15:X=64:Y=88:CE=6 60 PE=1:MV=1:FS$="FAS":FS=1:PL=864:CL=3072:RV=3200:FL=3328:RJ=3584:IN=3712 65 POKE2040,35:POKE2041,39:POKE2042,43:POKE2043,47:POKE53277,15:POKE53271,4 67 FORI=53287TO53291:POKEI,1:NEXT:POKE53264,7:CX=828:CY=829 68 FORI=53248TO53252STEP2:POKEI,32:NEXT 69 POKE53251,128:POKE53249,104:POKE53253,170 70 GOSUB1000: REM READ IN ML 80 FORI=1TO63:READA:POKE2240+I,A:NEXT:POKE2240,99 82 FORI=0TO63:READA:POKE2496+I,A:NEXT 84 FORI=0TO63:READA:POKE2752+I,A:NEXT 86 FORI=0TO63:READA:POKE3008+I,A:NEXT 88 FORI=0TO35:READA:POKE4608+I,A:NEXT 90 YC=53255:XC=53254:X1=6:Y1=43 92 POKEXC,X*2+X1:POKEYC,Y+Y1:SYSIN:POKE53274,241:POKE56334,0:SYSCL 93 POKE689,TB:POKE704,MB:POKE53269,15:PRINTP$"":GOSUB990:GOSUB840:POKE53280,C1 94 POKE848,CC:POKE849,C1:POKE850,C2:POKE851,C3:POKE53269,7 96 FORI=0TO175:POKECY,I:POKECX,0:SYSPL:POKECX,124:SYSPL:NEXT 98 FORI=0TO124:POKECX,I:POKECY,0:SYSPL:POKECX,I:POKECY,175:SYSPL:NEXT 99 POKE53269,15:POKE198,0:H=124:HY=175 100 IFKTHEN120 105 POKE650,.:SYSRJ:A=PEEK(679):IFA=.THEN120 107 Q=X%(A)*MV+X:R=Y%(A)*MV+Y:IFQ>HTHENQ=Q-H-1:GOTO109 108 IFQ<.THENQ=H+Q+1 109 IFR>HYTHENR=R-HY-1:GOTO111 110 IFR<.THENR=HY+R+1 111 X=Q:Y=R:POKECX,X:POKECY,Y:IFPETHENSYSPL 112 IFFS=0THENGOSUB850 113 POKEXC,X*2+X1:POKEYC,Y+Y1:GOTO100 120 GETA$:IFA$=""THEN100 121 IFK=0THEN138 122 POKE650,128:IFA$<>"I"THEN124 123 A=2:GOTO107 124 IFA$<>"U"THEN126 125 A=8:GOTO107 126 IFA$<>"J"THEN128 127 A=6:GOTO107 128 IFA$<>"N"THEN130 129 A=10:GOTO107 130 IFA$<>"M"THEN132 131 A=4:GOTO107 132 IFA$<>","THEN134 133 A=7:GOTO107 134 IFA$<>"K"THEN136 135 A=3:GOTO107 136 IFA$<>"O"THEN138 137 A=5:GOTO107 138 POKE198,0:IFA$<>"-"THEN141 139 IFKTHENK=0:K$="JOY":GOSUB990:GOSUB840:GOTO100 140 K=1:K$="KEY":GOSUB990:GOSUB840:GOTO100 141 IFA$<>"E"THEN143 142 CC=0:POKE848,0:GOSUB990:GOSUB840:GOTO100 143 IFA$="R"THENSYSRV:GOTO100 145 IFA$="[136]"THENA=PEEK(704):A=(A+1)*-(A<15):POKE704,A:GOTO100 146 IFA$="[140]"THENA=PEEK(704):A=A-1:A=A+((SGN(A)=-1)*(-16)):POKE704,A:GOTO100 147 IFA$="^"THENA=PEEK(689):A=(A+1)*-(A<15):POKE689,A:GOTO100 148 IFA$="*"THENA=PEEK(689):A=A-1:A=A+((SGN(A)=-1)*(-16)):POKE689,A:GOTO100 149 IFA$="/"THENA=PEEK(53290):A=(A+1)*-(A<255):POKE53290,A:GOTO100 150 IFA$="?"THENA=PEEK(53290):A=A-1:A=A+((SGN(A)=-1)*(-256)):POKE53290,A:GOTO100 153 IFA$<>"\"THEN156 154 IFFSTHENFS=0:FS$="SLO":GOTO180 155 FS=1:FS$="FAS":GOTO180 156 IFA$<>"+"THEN159 157 IFPEEK(53269)=15THENPOKE53269,7:GOTO100 158 POKE53269,15:GOTO100 159 IFA$<>"P"THEN162 160 IFPETHENPE=0:PE$="UP ":GOSUB990:GOSUB840:GOTO100 161 PE=1:PE$="DOW":GOSUB990:GOSUB840:GOTO100 162 IFA$<>""THEN164 163 SYSCL:GOSUB990:GOSUB840:GOTO90 164 IFA$<>"L"THEN166 165 GOSUB950:GOSUB990:GOSUB840:GOTO100 166 IFA$<>"S"THEN168 167 GOSUB900:GOSUB990:PRINTP$"[145][145]":GOSUB840:GOTO100 168 IFA$<>"M"THEN170 169 GOSUB182:POKE53269,0:GOSUB860:GOSUB870:POKE3846,226:POKE53269,15:GOTO184 170 IFA$<>"X"THEN200 171 POKE53269,0:GOSUB860:PRINT"[147]I HOPE YOU HAD FUN, SEE YA' NEXT TIME" 172 PRINT"OH, WHY DON'T YOU EXPERIMENT WITH" 173 PRINT"LOCATION 3846. POKE DIFFERENT NUMBERS" 174 PRINT"THERE. YOU MAY NOT KNOW IT, BUT YOU'LL" 175 PRINT"BE CONTROLLING THE RASTER INTERRUPT!!!" 176 PRINT"TILL NEXT TIME, HAVE FUN..............":END 180 GOSUB990:GOSUB840:GOTO100 182 PRINTP$"  PLEASE WAIT [146]"P$ 183 A=5376:B=1024:C=2023:FORI=BTOC:POKEA,PEEK(I):A=A+1:NEXT:RETURN 184 A=5376:B=1024:C=2023:FORI=BTOC:POKEI,PEEK(A):A=A+1:NEXT:GOSUB840:GOTO100 199 REM COMMANDS CONTINUED **** 200 IFA$<>"Q"THEN204 201 GOSUB990:PRINTP$:INPUT"NEW INCREMENT ";A$:A=INT(VAL(A$)):IFA<1THENA=1 202 IFA>9THENA=9 203 MV=A:GOSUB990:GOSUB840:GOTO100 204 IFA$<>":"THEN209 205 A=CE:A=(A+1)*-(A<15):POKE848+CC,A:GOSUB990:CE=A:POKE53280,CE 206 IFCC=2THENC2=A:GOSUB840:GOTO100 207 IFCC=3THENC3=A:GOSUB840:GOTO100 208 C1=A:GOSUB840:GOTO100 209 IFA$<>"D"THEN214 210 A=CE:A=A-1:A=A+((SGN(A)=-1)*(-16)):GOSUB990:CE=A:POKE53280,CE 211 POKE848+CC,A:IFCC=2THENC2=A:GOSUB840:GOTO100 212 IFCC=3THENC3=A:GOSUB840:GOTO100 213 C1=A:GOSUB840:GOTO100 214 IFA$<>"[133]"THEN216 215 POKE848,1:CE=C1:CC=1:POKE53280,CE:GOSUB990:GOSUB840:GOTO100 216 IFA$<>"[134]"THEN218 217 POKE848,2:CE=C2:CC=2:POKE53280,CE:GOSUB990:GOSUB840:GOTO100 218 IFA$<>"[135]"THEN220 219 POKE848,3:CE=C3:CC=3:POKE53280,CE:GOSUB990:GOSUB840:GOTO100 220 IFA$<>"F"THEN100 221 GOSUB990:PRINTP$:INPUT"COLOR # ";A$:A=INT(VAL(A$)):IFA<1ORA>3THENA=1 222 POKE674,A:GOSUB990:PRINTP$:INPUT"COLOR VALUE ";A$:A=INT(VAL(A$)) 223 IFA<0ORA>15THENA=0 224 POKE675,A:SYSFL:GOSUB990:GOSUB840:GOTO100 840 REM PRINT BOTTOM 3 LINES ***** 841 GOSUB990:PRINTP$"NUM[146]"STR$(CC)" COL[146] "C$(CE)" "K$"[146] INC[146]"STR$(MV); 842 PRINT" PEN[146] "PE$" SPE[146] "FS$ 843 PRINT"COL1[146] "C$(C1)" COL2[146] "C$(C2)" COL3[146] "C$(C3)" X[146]"X; 844 PRINT"Y[146]"Y 845 RETURN 850 REM PRINT NEW X AND Y ***** 851 PRINTP$""TAB(27)"X[146] [157][157][157][157][157][157][157][157][157][157]"X"Y[146]"Y:RETURN 860 REM MOVE RASTER UP ******* 865 POKE3846,0:RETURN 867 LOC.3846 = LOCATION TO START PUTTING THE NORMAL TEXT AT (Y COORDINATE) 870 REM LIST COMMANDS ***** 872 PRINT"[147] U I O" 874 PRINT" [205] [221] [206]" 876 PRINT" J[192][192][219][192][192]K KEYS TO MOVE CURSOR" 878 PRINT" [206] [221] [205] ( OR USE JOYSTICK )" 880 PRINT" N M ," 881 PRINT"P = TOGGLES BETWEEN PEN UP AND PEN DOWN" 882 PRINT"F1,F3,F5 = CHANGE TO COLORS 1,2,3" 883 PRINT": = INCREMENT CURRENT COLOR" 884 PRINT"D = DECREMENT CURRENT COLOR" 885 PRINT"- = TOGGLES JOYSTICK/KEY MOVEMENT" 886 PRINT"S = SAVE SCREEN" 887 PRINT"L = LOAD SCREEN" 888 PRINT"F7,F8 = INC/DEC HI-RES BACKGROUND COLOR" 889 PRINT"E = CHANGE TO ERASE MODE (COLOR 0)" 890 PRINT"[HOME] = CLEARS HI-RES SCREEN" 891 PRINT"+ = TOGGLES CURSOR ON/OFF" 892 PRINT"F = FILLS SCREEN WITH A COLOR" 893 PRINT"R = REVERSES SCREEN" 894 PRINT"Q = CHANGE CURSOR INCREMENT" 895 PRINT"\ = TOGGLE FAST/SLOW CURSOR MOVEMENT" 896 PRINT"/,[SHIFT]/ = INC/DEC CURSOR COLOR" 897 PRINT"^,* = INC/DEC TEXT BACKGROUND" 898 PRINT"X = EXITS PROGRAM" 899 PRINT"HIT SPACE BAR TO RETURN[146]":WAIT197,32,0:RETURN 900 REM SAVE SUB****** 902 NA$="":GOSUB990 905 PRINTP$;:INPUT"NAME OF SCREEN [157][157][157]";NA$ 910 PRINTP$;:INPUT"TAPE OR DISK (T/D) [157][157][157][157][157][157][157][157]";DV$ 915 IFNA$=""ANDDV$="D"THENRETURN 920 IFLEN(NA$)>15THENRETURN 921 GOSUB990 922 PRINTP$"  PLEASE WAIT [146]"P$ 925 POKE3846,0:IFDV$="T"THEND=1:GOTO927 926 D=8 927 POKE4611,D:POKE4618,LEN(NA$)+1:A=1:NA$=NA$+"1" 928 PRINTP$;:FORI=1TOLEN(NA$):POKE4863+I,ASC(MID$(NA$,I,1)):NEXT 929 IFA=1THENPOKE4627,4:POKE4631,0:POKE4639,7:POKE4637,127 931 IFA=2THENPOKE4627,32:POKE4631,0:POKE4639,62:POKE4637,0 933 IFA=3THENPOKE4627,216:POKE4631,0:POKE4639,219:POKE4637,127 935 SYS4608:NA$=LEFT$(NA$,LEN(NA$)-1) 937 A=A+1:IFA=2THENNA$=NA$+"2":GOTO928 939 IFA=3THENNA$=NA$+"3":GOTO928 941 GOSUB990:PRINT"":POKE3846,226:POKE56334,0:RETURN 950 REM LOAD SUB****** 952 NA$="":GOSUB990 955 PRINTP$;:INPUT"NAME OF SCREEN [157][157][157]";NA$ 960 PRINTP$;:INPUT"TAPE OR DISK (T/D) [157][157][157][157][157][157][157][157]";DV$ 965 IFNA$=""ANDDV$="D"THENRETURN 970 IFLEN(NA$)>15THENRETURN 972 GOSUB990 975 PRINTP$"  PLEASE WAIT [146]"P$; 976 POKE3846,0:IFLEFT$(DV$,1)="T"THEND=1:GOTO980 977 D=8 980 PRINTP$"[145]";:NA$=NA$+"1":A=1:LOADNA$,D,1 981 PRINTP$"[145]";:A=A+1:NA$=LEFT$(NA$,LEN(NA$)-1):NA$=NA$+"2":LOADNA$,D,1 982 PRINTP$"[145]";:A=A+1:NA$=LEFT$(NA$,LEN(NA$)-1):NA$=NA$+"3":LOADNA$,D,1 983 POKE3846,226:POKE56334,0:GOSUB990:GOSUB840:GOTO100 990 REM CLEAR TEXT ***** 992 FORI=1904TO2023:POKEI,32:NEXT:RETURN 1000 FORI=1TO11:READCH%(I):NEXT 1010 B=1:T=0 1020 READA$:TE=VAL(A$):IFA$="E"THEN1040 1025 IFA$="F"THEN1050 1030 T=T+TE:GOTO1020 1040 IFT=CH%(B)THENB=B+1:T=0:GOTO1020 1045 PRINT"ERROR IN DATA BLOCK"B:END 1050 IFT=CH%(B)THEN1060 1055 PRINT"ERROR IN DATA BLOCK"B:END 1060 PRINT"DATA CORRECT, NOW ENTERING..." 1065 RESTORE:FORI=1TO47:READA$:NEXT 1070 A=864:B=953:GOSUB1200:A=2048:B=2200:GOSUB1200:A=2304:B=2468:GOSUB1200 1080 A=2560:B=2728:GOSUB1200:A=2816:B=2932:GOSUB1200:A=3072:B=3174:GOSUB1200 1090 A=3200:B=3237:GOSUB1200:A=3328:B=3465:GOSUB1200:A=3584:B=3635:GOSUB1200 1100 A=3712:B=3746:GOSUB1200:A=3840:B=3920:GOSUB1200 1150 PRINT"DATA ENTERED !!!":RETURN 1200 FORI=ATOB:READT:POKEI,T:NEXT:READA$:RETURN 2999 REM COLOR TRANSLATE DATA ***** 3000 DATABLK,WHT,RED,CYN,PUR,GRN,BLU,YEL,ORG,BRN,LRD,DGR,MGR,LGN,LBL,LGR 3009 REM JOYSTICK ARRAY DATA ****** 3010 DATA,,,-1,1,,,1,1,-1,-1,,1,1,-1,-1,,,-1,1 5900 REM CHECKSUMS ***** 5910 DATA10078,18217,19331,19145,13292,10587,4275,12661,4922,3396,9730 6000 REM BLOCK 1 ******* 6005 DATA14,60,3,173,66,3,201,1,240,19,162,0,189,170,3,157,66,3 6010 DATA189,178,3,157,84,3,232,224,8,208,239,160,0,132,249,169,32 6020 DATA133,250,173,80,3,240,20,201,3,240,19,132,253,162,4,134,254 6030 DATA201,1,240,3,76,0,9,76,0,10,76,0,11,132,251,169,216 6040 DATA133,252,76,0,8,1,2,4,8,16,32,64,128,254,253,251,247 6050 DATA239,223,191,127,E 6060 REM BLOCK 2 ******* 6065 DATA173,60,3,74,74,74,141,62,3,173,61,3,74,74,74,141,63,3 6070 DATA173,61,3,41,7,141,64,3,173,60,3,41,7,141,65,3,169 6080 DATA7,56,237,65,3,141,65,3,174,63,3,24,240,16,230,250,165 6090 DATA249,105,64,133,249,144,3,230,250,24,202,208,240,174,62,3,240 6100 DATA14,165,249,105,8,133,249,144,3,230,250,24,202,208,242,165,249 6110 DATA109,64,3,133,249,144,3,230,250,24,174,65,3,160,0,189,66 6120 DATA3,17,249,145,249,202,189,66,3,17,249,145,249,174,63,3,24 6130 DATA240,14,165,251,105,40,133,251,144,3,230,252,24,202,208,242,165 6140 DATA251,109,62,3,133,251,144,2,230,252,173,83,3,145,251,96,E 6150 REM BLOCK 3 ******* 6155 DATA173,60,3,74,74,74,141,62,3,173,61,3,74,74,74,141,63,3 6160 DATA173,61,3,41,7,141,64,3,173,60,3,41,7,141,65,3,169 6170 DATA7,56,237,65,3,141,65,3,174,63,3,24,240,16,230,250,165 6180 DATA249,105,64,133,249,144,3,230,250,24,202,208,240,174,62,3,240 6190 DATA14,165,249,105,8,133,249,144,3,230,250,24,202,208,242,165,249 6200 DATA109,64,3,133,249,144,3,230,250,24,174,65,3,160,0,189,66 6210 DATA3,17,249,145,249,202,189,84,3,49,249,145,249,174,63,3,24 6220 DATA240,14,165,253,105,40,133,253,144,3,230,254,24,202,208,242,165 6230 DATA253,109,62,3,133,253,144,2,230,254,173,82,3,41,15,141,62 6240 DATA3,177,253,41,240,13,62,3,145,253,96,E 6250 REM BLOCK 4 ******* 6255 DATA173,60,3,74,74,74,141,62,3,173,61,3,74,74,74,141,63,3 6260 DATA173,61,3,41,7,141,64,3,173,60,3,41,7,141,65,3,169 6270 DATA7,56,237,65,3,141,65,3,174,63,3,24,240,16,230,250,165 6280 DATA249,105,64,133,249,144,3,230,250,24,202,208,240,174,62,3,240 6290 DATA14,165,249,105,8,133,249,144,3,230,250,24,202,208,242,165,249 6300 DATA109,64,3,133,249,144,3,230,250,24,174,65,3,160,0,189,84 6310 DATA3,49,249,145,249,202,189,66,3,17,249,145,249,174,63,3,24 6320 DATA240,14,165,253,105,40,133,253,144,3,230,254,24,202,208,242,165 6330 DATA253,109,62,3,133,253,144,2,230,254,173,81,3,41,15,10,10 6340 DATA10,10,141,62,3,177,253,41,15,13,62,3,145,253,96,E 6350 REM BLOCK 5 ******* 6355 DATA173,60,3,74,74,74,141,62,3,173,61,3,74,74,74,141,63,3 6360 DATA173,61,3,41,7,141,64,3,173,60,3,41,7,141,65,3,169 6370 DATA7,56,237,65,3,141,65,3,174,63,3,24,240,16,230,250,165 6380 DATA249,105,64,133,249,144,3,230,250,24,202,208,240,174,62,3,240 6390 DATA14,165,249,105,8,133,249,144,3,230,250,24,202,208,242,165,249 6400 DATA109,64,3,133,249,144,3,230,250,24,174,65,3,160,0,189,84 6410 DATA3,49,249,145,249,202,189,84,3,49,249,145,249,96,E 6420 REM BLOCK 6 ******* 6425 DATA160,0,162,32,142,67,12,232,142,70,12,232,142,73,12,232,142,76 6430 DATA12,173,33,208,10,10,10,10,141,176,2,173,33,208,41,15,13 6440 DATA176,2,153,0,216,153,0,217,153,0,218,153,232,218,153,0,4 6450 DATA153,0,5,153,0,6,153,232,6,200,208,229,152,153,0,60,153 6460 DATA0,61,153,0,62,153,0,63,200,208,241,174,67,12,224,60,240 6470 DATA15,238,67,12,238,70,12,238,73,12,238,76,12,76,65,12,96,E 6480 REM BLOCK 7 ******* 6485 DATA160,0,162,32,142,140,12,142,145,12,185,0,32,73,255,153,0,32,200 6490 DATA208,245,173,140,12,201,63,240,9,238,140,12,238,145,12,76,138,12,96,E 6540 REM BLOCK 8 ******* 6545 DATA160,0,173,163,2,174,162,2,224,1,240,20,224,2,240,71,153 6550 DATA0,216,153,0,217,153,0,218,153,0,219,200,208,241,96,10,10 6560 DATA10,10,141,164,2,185,0,4,41,15,13,164,2,153,0,4,185,0 6570 DATA5,41,15,13,164,2,153,0,5,185,0,6,41,15,13,164,2 6580 DATA153,0,6,185,232,6,41,15,13,164,2,153,232,6,200,208 6590 DATA209,96,141,164,2,185,0,4,41,240,13,164,2,153,0,4,185 6600 DATA0,5,41,240,13,164,2,153,0,5,185,0,6,41,240,13,164 6610 DATA2,153,0,6,185,232,6,41,240,13,164,2,153,232,6,200,208,209,96,E 6620 REM BLOCK 9 ******* 6625 DATA169,0,141,167,2,173,0,220,106,176,9,162,2,142,167,2,106 6630 DATA76,28,14,106,176,5,162,4,142,167,2,106,176,9,173,167,2 6640 DATA105,6,141,167,2,96,106,176,8,173,167,2,105,3,141,167,2,96,E 6650 REM BLOCK 10 ******* 6655 DATA120,169,15,141,21,3,169,0,141,20,3,141,178,2,141,18,208 6660 DATA173,17,208,41,127,141,17,208,173,25,208,9,1,141,25,208,88,96,E 6670 REM BLOCK 11 ******* 6675 DATA173,178,2,208,37,169,226,141,18,208,169,59,141,17,208,173,192 6680 DATA2,141,33,208,169,29,141,24,208,169,24,141,22,208,169,1,141 6690 DATA25,208,141,178,2,76,49,234,169,252,141,18,208,169,27,141,17 6700 DATA208,173,177,2,141,33,208,169,21,141,24,208,169,8,141,22,208 6710 DATA169,1,141,25,208,169,0,141,178,2,76,129,234,F 6999 REM SPRITE DATA ******** 7000 DATA74,250,85,74,34,73,74,34,65,74,34,65,74,34,65,123,162 7010 DATA0,0,0,49,198,68,41,41,68,37,41,68,37,207,84,41,41 7020 DATA84,49,41,40,0,0,0,1,196,0,2,4,128,2,4,128,3 7030 DATA199,128,2,32,128,1,192,128,0,0,0,0,4,0,0,4,18 7040 DATA0,7,146,64,4,158,0,7,130,64,0,14,0,0,0,0,61 7050 DATA239,188,37,2,32,61,194,56,33,2,32,33,226,60,0,8,0 7060 DATA33,232,64,33,47,64,33,41,64,61,239,120,0,0,0,0,0 7070 DATA0,0,0,0,0,0,0,0,37,124,136,37,16,216,61,16,168 7080 DATA37,16,136,37,16,136,0,0,0,15,123,192,8,74,64,14,75 7090 DATA128,8,74,64,8,122,64,0,0,0,0,0,0,139,232,162,218 7100 DATA12,162,171,138,162,138,9,162,138,8,162,139,232,190,0,0,0 7110 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0 7120 DATA64,0,1,240,0,1,16,0,7,28,0,1,16,0,1,240,0 7130 DATA0,64,0,0,64,0,0,0,0,0,0,0,0,0,0,0,0 7140 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 7200 REM SAVE ML DATA ****** 7210 DATA169,1,162,8,160,255,32,186,255,169,15,162,0,160,19,32,189,255,169 7220 DATA4,133,253,169,0,133,252,169,252,162,127,160,7,32,216,255,96